home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 13 / 64er_Magazin_Sonderheft_13_19xx_Markt__Technik_de_Side_A.d64 / quellcode messr. (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  133 lines
  1. 100 sys9*4096
  2. 110 .opt p,oo
  3. 120 *= 52000
  4. 125 irqvec = $fffe
  5. 130 nmivec = $fffa
  6. 135 vic = $d000
  7. 140 ta1lo = $dc04
  8. 150 ta1hi = $dc05
  9. 160 tb1lo = $dc06
  10. 170 tb1hi = $dc07
  11. 180 icr1 = $dc0d
  12. 190 cra1 = $dc0e
  13. 200 crb1 = $dc0f
  14. 210 ;
  15. 220 ta2lo = $dd04
  16. 230 ta2hi = $dd05
  17. 240 tb2lo = $dd06
  18. 250 tb2hi = $dd07
  19. 260 icr2 = $dd0d
  20. 270 cra2 = $dd0e
  21. 280 crb2 = $dd0f
  22. 290 vicsr1 = vic+17
  23. 300 ;
  24. 310 bta1lo = $02c0,buffers ab 704
  25. 320 bta1hi = bta1lo+1
  26. 330 btb1lo = bta1lo+2
  27. 340 btb1hi = bta1lo+3
  28. 350 full = bta1lo+4
  29. 360 ;
  30. 380 irqbuf = $02d0;zwischenspeicher
  31. 390 nmibuf = irqbuf+2
  32. 400 cpubuf = irqbuf+4
  33. 450 ;
  34. 500 start sei
  35. 502 lda $01
  36. 504 sta cpubuf;zustand merken
  37. 506 lda #$35
  38. 508 sta $01;rom aus
  39. 510 lda irqvec;irqvec merken
  40. 520 sta irqbuf
  41. 530 lda irqvec+1
  42. 535 sta irqbuf+1
  43. 540 sta irqbuf+1
  44. 542 lda nmivec;nmivec merken
  45. 544 sta nmibuf
  46. 546 lda nmivec+1
  47. 548 sta nmibuf+1
  48. 549 ;
  49. 550 lda #<ablese;neuer vektor
  50. 560 sta irqvec
  51. 565 sta nmivec
  52. 570 lda #>ablese
  53. 580 sta irqvec+1
  54. 585 sta nmivec+1
  55. 599 ;
  56. 600 stop lda #%10010000;systemtakte
  57. 610 sta cra1
  58. 620 lda #%11011000;unterlaeufe zaehlen
  59. 630 sta crb1
  60. 640 lda #%10111000;cnt-flanken zaehlen
  61. 650 sta cra2
  62. 660 set lda bta1lo;alle laden
  63. 670 sta ta1lo
  64. 680 lda bta1hi
  65. 690 sta ta1hi
  66. 700 lda btb1lo
  67. 710 sta tb1lo
  68. 720 lda btb1hi
  69. 730 sta tb1hi
  70. 740 lda #$ff;default
  71. 745 sta full
  72. 750 sta ta2lo
  73. 760 sta ta2hi
  74. 770 seticr lda #%01111111;loeschen
  75. 780 sta icr1
  76. 790 sta icr2
  77. 800 lda #%10000010;irq durch b-unterl.
  78. 810 sta icr1
  79. 820 lda #%11011001;uhr start b
  80. 825 sta crb1
  81. 828 lda #%10010001;uhr start
  82. 830 ldx #%10111001;counter start
  83. 835 ldy #%10101000;stop fuer spaeter y-reg bleibt bei irq
  84. 840 cli
  85. 850 sta cra1;start uhr
  86. 860 stx cra2;start counter
  87. 880 test lda ta2hi;ueberlauftest
  88. 890 bne test
  89. 900 lda ta2lo;lobyte
  90. 910 bne test
  91. 950 sei
  92. 960 lda #$01
  93. 970 sta full;flag setzen
  94. 980 jmp normal
  95. 999 ;
  96. 1010 ablese sei;irq routine
  97. 1020 sty cra2;counter stoppen
  98. 1030 lda ta2lo;abspeichern
  99. 1040 sta bta1lo
  100. 1050 lda ta2hi
  101. 1060 sta bta1hi
  102. 1070 pla
  103. 1075 ;pla
  104. 1080 pla
  105. 1085 ;pla
  106. 1090 pla
  107. 1095 ;pla
  108. 1100 normal lda #%10010000;a stop
  109. 1110 sta cra1
  110. 1120 lda #%11011000;b stop
  111. 1130 sta crb1
  112. 1150 lda irqbuf;vektor holen
  113. 1160 sta irqvec
  114. 1170 lda irqbuf+1
  115. 1180 sta irqvec+1
  116. 1182 lda nmibuf;vektor holen
  117. 1184 sta nmivec
  118. 1186 lda nmibuf+1
  119. 1188 sta nmivec+1
  120. 1190 lda #$40
  121. 1200 sta ta1hi
  122. 1230 lda #%01111111;loeschen
  123. 1240 sta icr1
  124. 1250 sta icr2
  125. 1260 lda #%10000001;irq durch a-unterl
  126. 1270 sta icr1
  127. 1280 lda #$01;timer a starten
  128. 1290 sta cra1
  129. 1300 lda cpubuf
  130. 1310 sta $01;alter zustand
  131. 1340 cli
  132. 1350 rts
  133.